home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Magnum One
/
Magnum One (Mid-American Digital) (Disc Manufacturing).iso
/
d13
/
blimp.arc
/
BLIMP.BAS
next >
Wrap
BASIC Source File
|
1989-04-17
|
2KB
|
56 lines
10 DIM A(2000)
20 DIM C(2000)
30 DIM B(2000)
35 CLS:INPUT;" What message (or exit)";L$
36 IF L$="EXIT" OR L$="exit" THEN END
37 F$ = " "+L$+".............."
40 IF L$ = "" THEN L$ = "-----introducing ... THE-IBM-personal-computer------"
50 SCREEN 1,0:COLOR 0,0:KEY OFF
60 CLS
70 GET (1,1)-(45,30),B
80 FOR G =5 TO 1 STEP -1
90 CIRCLE (130,83),80,2,,,G*.1
100 IF G/2-INT(G/2)>0 THEN PAINT (130,80),1,2
110 IF G/2-INT(G/2)<.01 THEN PAINT (130,80),3,2
120 NEXT G
130 LINE (124,120)-(138,126),2,BF
140 DRAW"c2br74bu10nu66br1nu66nl34u66l34run
150 PAINT (192,54),3,2
160 LOCATE 11,14:PRINT" IBM "
170 CIRCLE(100,10),6,3,1,4.1
180 CIRCLE(107,10),7,3,1,2.1
190 CIRCLE(104,15),6,3,3,4.3
200 CIRCLE(114,10),7,3,1,2.1
210 CIRCLE(114,12),8,3,0,1.1
220 CIRCLE(114,13),8,3,4.6,0
230 CIRCLE(107,15),8,3,3.7,5.7
240 CIRCLE(100,17),4,3,2.7,4.7
250 CIRCLE(94,13),4,,3,3.7,2.7
260 PAINT(100,10),3,3
270 GET (80,1)-(130,22),A
280 PUT (80,1),B,PSET
290 LINE (0,190)-(320,190),1
310 PAINT(22,192),1,1
315 LINE(0,190)-(27,158),1
320 LINE(56,191)-(35,151),1
330 LINE(29,162)-(27,158),1
340 LINE(29,162)-(35,151),1
350 PAINT(15,182),1,1
352 GET (0,191)-(56,150),C
360 FOR I = 1 TO 380
370 GOSUB 420
380 PUT (I,1),B,OR
385 PUT (I,150),C,PSET
390 IF I > 28 THEN PUT (I-28,1),A,PSET
392 IF I > 128 THEN PUT (I-128,21),A,PSET
400 IF I > 2 THEN LOCATE 11,11:PRINT R$
410 NEXT I
420 R$ = MID$(F$,I,14)
421 IF R$ = ".............." THEN F$ = F$ + L$+"..............":IF LEN(F$)> 210 THEN 35
430 FOR T = 1 TO 50:NEXT T'TIMER FOR LETTERS
440 RETURN
450 PAINT (1,1),3
460 PUT (80,2),B,PSET
470 END
F$)> 210 THEN 35
430 FOR T